100 SYS36864:.OPT OO:*= $C000
110 ;
120 ;**********************************
130 ;*       CUTTER $C000-$C04C       *
140 ;*   (W)1991 BY SILVAN REINHOLD   *
150 ;**********************************
160 ;
170 :       JSR GETPAR ;ADRESSE DER STARTZEILE ERRECHNEN
180 :       STA $57 ;LOW- UND
190 :       STX $58 ;HIGH-BYTE SPEICHERN
200 :       JSR GETPAR ;ADRESSE DER ENDZEILE BERECHNEN
210 :       STA $59 ;LOW- UND
220 :       STX $5A ;HIGH-BYTE ZWEIMAL
230 :       STA $5B ;SPEICHERN
240 :       STX $5C
260 :       LDY #$00 ;SCHLEIFE VORBEREITEN
270 :       LDX #$01 ;(ZWEI DURCHLAEUFE)
280 :LABEL0 LDA ($59),Y ;DIE BEIDEN LETZTEN BYTES AUF
290 :       PHA ;DEM STACK ABLEGEN UND
300 :       TYA ;DURCH NULLBYTES (PROGRAMMENDE)
310 :       STA ($59),Y ;ERSETZEN
320 :       INC $59 ;DABEI PROGRAMMENDEZEIGER AUF DAS
330 :       BNE LABEL1 ;BYTE HINTER DEM LETZTEN NULLBYTE
340 :       INC $5A ;STELLEN
350 :LABEL1 DEX
360 :       BPL LABEL0
380 :       JSR $AEFD ;KEIN KOMMA, DANN SYNTAX ERROR
390 :       JSR $E1D4 ;PARAMETER ZUM SPEICHERN HOLEN
400 :       LDA #$57 ;START- UND
410 :       LDX $59 ;ENDADRESSE UEBERGEBEN
420 :       LDY $5A
430 :       JSR $FFD8 ;ZUM SPEICHERN
450 :       LDY #$01 ;ZWEI SCHLEIFENDURCHLAEUFE VORBEREITEN
460 :LABEL2 PLA ;DIE ERSETZTEN BYTES WIEDER
470 :       STA ($5B),Y ;VOM STAPEL ZURUECKHOLEN
480 :       DEY
490 :       BPL LABEL2
500 :       RTS ;ENDE
510 ;----------------------------------
520 :GETPAR JSR $AEFD ;KEIN KOMMA, DANN SYNTAX ERROR
530 :       JSR $AD8A ;ZEILENNUMMER AUS DEM BASICTEXT
540 :       JSR $B7F7 ;HOLEN
550 :       JSR $A613 ;STARTADRESSE BERECHNEN
560 :       LDA $5F ;LOW-BYTE IN DEN AKKU (HIGH-BYTE IM X-REGISTER)
570 :       RTS ;ZURUECK VOM UNTERPROGRAMM
580 ;----------------------------------
590 :      .END